home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcpen.arc / PCPEN-PR.BAS (.txt) next >
Encoding:
GW-BASIC  |  1985-02-09  |  1.3 KB  |  58 lines
  1. 10  ' PC-Pen User's Manual Printer
  2. 20  ' (C) Copyright 1985 SoftTec Systems
  3. 30  ' All Rights Reserved
  4. 40  '
  5. 50  CLEAR:CLS:KEY OFF:DEFINT A-Z
  6. 60  PRINT "PC-Pen User's Manual Printer"
  7. 70  PRINT "(C) Copyright 1985 SoftTec Systems"
  8. 80  PRINT "All Rights Reserved"
  9. 90  PRINT
  10. 100  ON ERROR GOTO 560
  11. 110  OPEN "PCPEN.DOC" FOR INPUT AS #1
  12. 120  ON ERROR GOTO 0
  13. 130  PRINT "Enter the number of lines per page."
  14. 140  PRINT "Default = 66."
  15. 150  INPUT N$
  16. 160  N=VAL(N$)
  17. 170  IF N=0 THEN N=66
  18. 180  PRINT
  19. 190  PRINT "1 - Print to diskette file MANUAL.DOC."
  20. 200  PRINT "2 - Print to printer."
  21. 210  PRINT
  22. 220  PRINT "Select Destination."
  23. 230  IN$=INKEY$:IF IN$="" THEN 230
  24. 240  IF IN$="1" THEN OPEN "manual.doc" FOR OUTPUT AS #2:GOTO 270
  25. 250  IF IN$="2" THEN OPEN "lpt1:" FOR OUTPUT AS #2:GOTO 270
  26. 260  BEEP:GOTO 230
  27. 270  PRINT
  28. 280  PRINT "Press any key to begin printing."
  29. 290  IN$=INKEY$:IF IN$="" THEN 290
  30. 300  PRINT
  31. 310  PRINT "Printing..."
  32. 320  START=0:PAGE=1
  33. 330  PRINT #2,:PRINT #2,
  34. 340  IF START=1 THEN PRINT #2,SPC(27);"PC-Pen User's Manual" ELSE PRINT #2,
  35. 350  PRINT #2,
  36. 360  FOR I=1 TO N-11
  37. 370  IF EOF(1) THEN 460
  38. 380  LINE INPUT #1,L$
  39. 390  IF LEFT$(L$,1)=CHR$(21) THEN START=1:FOR J=I TO N-5:PRINT #2,:NEXT J:GOTO 330
  40. 400  IF LEFT$(L$,1)=CHR$(23) THEN FOR J=I TO N-11:PRINT #2,:NEXT J:GOTO 430
  41. 410  PRINT #2,"       "+L$
  42. 420  NEXT I
  43. 430  PRINT #2,:IF START=1 THEN GOSUB 530:PAGE=PAGE+1 ELSE PRINT #2,
  44. 440  PRINT #2,:PRINT #2,:PRINT #2,:PRINT #2,:PRINT #2,
  45. 450  GOTO 330
  46. 460  FOR J=I TO N-11:PRINT #2,:NEXT J
  47. 470  PRINT #2,:GOSUB 530
  48. 480  PRINT
  49. 490  PRINT "Finished"
  50. 500  CLOSE #1
  51. 510  CLOSE #2
  52. 520  SYSTEM
  53. 530  PRINT #2, SPC(34);"Page ";
  54. 540  PRINT #2, USING "##";PAGE
  55. 550  RETURN
  56. 560  PRINT "PCPEN.DOC not found."
  57. 570  SYSTEM
  58.